﻿Public Class Inf_Nacimientos
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not Page.IsPostBack Then
            FG.culturaPaginas()
        End If
    End Sub


    Private Sub MuestroNacimientos()

        Dim Rs As ADODB.Recordset
        Dim param(0) As ADODB.Parameter


        'seteo el panel --
        P_Nacimientos.Visible = False


        param(0) = New ADODB.Parameter
        param(0).Name = "@Anio"
        param(0).Type = ADODB.DataTypeEnum.adVarChar
        param(0).Direction = ADODB.ParameterDirectionEnum.adParamInput
        param(0).Value = cboAnioGraf.Text
        param(0).Size = 10



        Rs = Datos.TraerTodos("informe_NacimientoPuroXprovXAnio", param, "MuestroNacimientos-Inf_nacimientos")

        ' si ta sin datos salgo
        If Rs.RecordCount = 0 Then
            Exit Sub
        End If
        '------------------



        'pongo visible el panel 
        P_Nacimientos.Visible = True
        img_Nacimiento.ImageUrl = FG.DevuelveUrlGoogle_chart_Torta(Rs, TipoGraficoTortaGoogle.DosDimensiones, 650, 300, "Tasa de Nacimientos por provincias", Drawing.Color.Blue)










    End Sub

    Protected Sub btnAnioGraf_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnAnioGraf.Click

        '-seteo(cartel)
        FG.SacaCartelDeAViso(lblmsje)
        '--------


        'muestro el grafico''
        MuestroNacimientos()


        If P_Nacimientos.Visible = False Then
            FG.MuestraCartel("No hay datos para mostrar", lblmsje)
        End If




    End Sub
End Class